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SECTION  I 


USER  GENERAL  INSTRUCTIONS 


(1)  The  program  language  for  PC-1500  Pocket  Computer  is  BASIC  and  the 
elementary  part  of  BASIC  program  instructions  are  given  in  the 
SHARP  Intruction  manual,  which  comes  with  PC-1500  Pocket  Computer. 

(2)  The  8  K  RAM  should  be  attached  to  the  computer  to  increase  its 
capacity.  Printer  is  necessary  for  Version  1  and  2.  If  not 
available,  choose  Version  3  of  the  program. 

(3)  The  programs  are  called  SYM-LAM  1,  SYM-LAM  2,  and  SYM-LAM  3.  They  are 
three  different  displays  of  the  same  calculation: 

SYM-LAM  1  (Version  1)  gives  vertical  printing  on  the  paper, 

SYM-LAM  2  (Version  2)  gives  horizontal  printing  with  matrix  form 
on  the  paper, 

SYM-LAM  3  (Version  3)  gives  results  on  the  display  window  and 
does  not  require  the  printer. 

The  proqrams  are  started  in  mode  RUN  by  instruction  RUN  (press  the 
keys  ED  ED  OH  and  (ENTER)  ).  User  is  guided  through  the 
programs  by  simple  questions.  The  user  types  the  chosen  answer 
and  presses  the  key  IenterI  . 
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(4)  The  programs  are  recorded  on  a  magnetic  cassette  with  tape  counter 
readings: 

SYM-LAM  1  :  0-200 
SYM-LAM  2  :  250  -  400 
SYM-LAM  3  :  450  -  540 


Instruction  CLOAD  "SYM-LAM  1"  ("SYM-LAM  2"  or  "SYM-LAM  3")  is  used 
to  load  the  program  from  the  cassette  recorder  to  the  computer. 

(5)  The  program  considers  only  symmetric  laminates  of  composite 
materials. 
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SECTION  II 


CONTENTS  OF  PROGRAMS 


The  program  performs  specific  operations  and  computations  of 
composite  materials: 

(1)  Description  of  the  laminates. 

-  number  of  angles 

-  number  of  plies  for  each  angle 

-  number  of  core  plies  (for  flexural  stiffness  of  sandwich 
plate  only) 

(2)  It>plane  stiffness  of  symmetric  laminates. 

-  modulus  and  compliance 

(3)  Engineering  constants. 

(4)  Normalized  in-plane  stiffness. 

-  modulus  and  compliance 

(5)  In-plane  strength. 

(6)  Stress  failure  enevelope. 

(7)  Strain  failure  enevelope. 

(8)  Flexural  rigidity  of  symmetric  sandwich  plates. 

-  modulus  and  compliance 

(9)  Flexural  strength  of  symmetric  sandwich  plates. 

REMARKS: 

(a)  The  materials  constants  are  stored  in  the  program.  When 
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REMARKS:  (cont'd) 


"MATERIAL  N.  ="  is  asked,  input  the  material  number  or  press  M, 
which  gives  the  menu  for  materials  numbers: 

1  -  T300/5208 

2  -  B(4)/5505 

3  -  AS-3501 

4  -  Schotchply/1002 

5  -  Kevlar  49/Epoxy 

To  add  other  materials  (up  to  10),  user  should  type  (in  PRO  mode) 
for  a  material  N.  =  x:  (line  10  *  x) 

10  *  x:  DATA  "Name  of  Material",  Ex,  Ey,  vx,  Es>  hQ,  X,  X' , 

Y,  Y*  ,  S:  RETURN 

An  example  of  adding  a  new  material  (Aluminum-material  number  6) 
is  as  follows: 

Set  PRO  mode,  write  60  DATA  "ALUMINUM",  69E3,  69E3,  .3,  26.5E3, 
.125E-3,  400,  400,  400,  230:  RETURN  and  press  lENTER  . 

The  unit  of  engineering  constants  are  in  MPa  and  thickness  is  in 
meter. 

(Do  not  forget  to  save  the  modified  program  on  the  cassette  tape 
using  instruction  CSAVE  "SYM-LAM1"  ("SYM-LAM2"  or  "SYM-LAM3").  The 
menu  is  set  automatically  up  to  date. 
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(b)  The  order  of  angles  to  be  entered  starts  from  the  angle  closer  to 
the  mid-plane.  This  is  very  important  in  the  flexural  rigidity 
and  strength  computations. 

(c)  The  value  of  F*  was  programmed  as  0  in  the  program  step 

1025.  For  F*  f-j,  the  new  value  should  be  entered  directly 
xy  l 

in  the  program  at  this  step  (mode  PRO). 


t 


5 


KEY  OPERATION  PROCEDURE  (T300/5208,  [04/9043$  and  version  1) 


DISPLAY  & 

OPERATION 


PRINT  OUT  &  REMARKS 


DISPLAY  & 

OPERATION 


MATERIAL  N.  = 
(M  for  MENU)? 


MATERIAL  N.  = 
(M  for  MENU)? 


Color  Numbers 
0  -  black  2  -  green 
1  -  blue  3  -  red 


Menu  for  Materials 


T300/5208 


DEFINE  THE  LAMINATE 
HOW  MANY  ANGLES 


ANGLE  = 

ran 

ienter] 

NO.  OF  PLIES 


ANGLE  = 


ANGLE  1  -  30 

NO.  Or  ‘•'LIE'S 

ANGLE  2-0 
NO. OF  PLIES  = 

N . Of  CORE  PLIES 


NO.  OF  PLIES 


S  -  Y/N? 

IN  PLANE  STIFFNE 
MODULUS 

All  132.1 57MN/m 

A22  132.157MN/m 

A12  5.  733riN/m 

A66  ]  4 . 340MN''m 

A16  0.000MN'm 

A26  0.000MN/m 


OMPL  i  ANCE 


5. 208m/kN 
0. ?08m/kN 
0. 1 57m/kN 
63. ?35m/kN 

0 . 000m/kN 
0. 000m/kN 


PRINT  OUT  &  REMARKS 

-  Y/N? 

El  -o 

95. 991GPa 

E2-o 

95. 991 GPa 

E6-o 

7. 170GPa 

^2 1  o 

0.030 

vl2o 

0.  030 

lo 

0.  000 

vl6o 

0.  000 

w62o 

0.000 

u26o 

0.  000 

-  Y/N? 

NORMALIZED  CONST 

MODULUS 

All* 

96. 078GPa 

A22* 

96. 078GPa 

A12* 

2. 896GPa 

A66* 

7. 1 70GPa 

A16* 

0 . 000GPa 

A26* 

0. 000GPa 

1 NU .  MA 

T. < TPa)- 1 

COMPLIANCE 

Oil* 

10.417 

o22* 

10.417 

q12* 

-  0 . 3  j  4 

066* 

139. 470 

a  16* 

0 . 000 

a26* 

0.000 

!H  -  Y/N? 

N1  = 

1 . 000MN/m 

N2  - 

0. 000MN/m 

N6 

0.000MN/m 

0Nr  1  ■  ' 

* 

' '  '  ,  ft  ft 

<3  3  '^CVi-c 

o  • 

4.  rZ’.‘} 

N 

4 . 000 

‘VaTi  22GB  .  P  I  L* 

AN.  If  2 

0 

'  .  303 

N  r 

1  7.  i'PO 

'■'M  Tl  > 

68  1  .  PP.'M^u 

K 

'  L 

N 

8.  100 

'"o  TJ  - 

103.  -ISMP'i 
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DISPLAY  & 

OPERATION 


PRINT  OUT  &  REMARKS 


ESS  -  Y/N? 


DISPLAY  & 

OPERATION 


PRINT  OUT  &  REMARKS 


ssi 


ANGLE  NO.  is=(* 


I  ENTER  I 

NEW  SCALE  -  Y/N 


W  =  ? 


(*)Entering  an  angle 
number  greater  than 
the  number  of  angles 
on  the  laminate  ter¬ 
minates  the  graphic 
operation 


ANGLE  NO.  i s= 

m 

mm 

COLOR  NO.  is= 


/  / 


RAIN  -  Y/N? 

STRAIN  SPACE 

0. 022222 


IS  -  Y/N? 

FLEX.  STIFFNESS 

nODULllS 

D 1  I 

106. 918N. m 

□  22 

21  .  1  86N .  on 

□  12 

1 . 931N.  -n 

□66 

4.  ?80N. J 

□  16 

0. 000N.  <n. 

□26 

0 . 000N  .  T1 

1  NO . HAT 

.  ckN. m)~] 

COMPLIANCE 

dl  1 

9.368 

d22 

47.228 

d!2 

0.  863 

d66 

209.205 

dl6 

0.  000 

d26 

0 . 000 

.  -  Y/N? 

E !  -  f 

160. 1 13GPq 

E2-  f 

31 . 726GPa 

F6-  f 

7. ! 69GPq 

u21  f 

0.09  3 

^  1 2  f 

0.018 

v61  f 

0 . 000 

v>  1 6  f 

0 . 000 

o62  f 

0 . 000 

^2&  f 

0 .  000 

-  Y/N? 

NORMALIZED  const 

MODULUS 

P!  It 

160. 378GPq 

□  22* 

.31  .  ?7.9GPa 

□  12* 

2.  r^MGPa 

□66* 

7. 1 70GPa 

□  16* 

0. 000GPa 

□26* 

0. 000GPa 

1 1 NU .  MAT.  (  T-Pq ) ■  1 

'COMf'L  IANCE 

d  1  I  * 

6.  245 

d22* 

31.538 

dl  2* 

0.  569 

d66* 

139.470 

dl  6* 

0.000 

d26* 

0. 000 

DISPLAY  & 

OPERATION 


RINT  OUT  &  REMARKS  DISPLAY  &  PRINT  OUT  &  REMARKS 

OPERATION 


FLEXURALSTRENGTlJ  -  Y/N? 


1 . 000MN 
0. 000MN 
0.  000TIN 


ANGLE  1  -  90 

R+  -  0.000 

SSm+=  1 253. 54  J  HP 


ANGLE 

2  -■ 

0 

R+  = 

0. 

000 

S9m+- 

1187. 

969HPq 

R- 

0. 

001 

Sam-- 

1705. 

573n^a 

\ 

At  the  end  of  the  program  It  starts 

[again  to  IN-PLANE  STIFFNESS.  To  end 
or  stop  the  program,  press  the  key 
ram  break" ) 


\ 

\ 

DESCRIPTION 

VE 

RSI  ON 

\ 

DESCRIPTION 

VERSION 

\ 

\ 

DESCRIPTION 

VERSION 

m 

a 

i l 

1 

2 

3 

1_ 

2_ 

3_ 

0(1) 

Fxx 

i 

0(21) 

G12 

V(16) 

*6*6  4 

U(2) 

Fx 

11(22) 

G66 

V(17) 

★  ★ 

A16  °16 

U(3) 

Fyy 

U(23) 

G1 

V  ( 18 ) 

4  “26 

U(4) 

F 

y 

U(24) 

G2 

V(19) 

★  it 

all  dll 

U(5) 

F 

ss 

V(l) 

A11  D11 

V(20) 

*  ★ 
a22  d22 

U(6) 

F 

xy 

V(2) 

A22  °22 

V  ( 2 1 ) 

★  ★ 
a12  d12 

U(7) 

G 

XX 

V(3) 

A12  °12 

V  ( 22 ) 

*  .* 

a66  d66 

U(8) 

G 

yy 

V(4) 

A66  °66 

V(  23) 

★  * 

al6  d16 

"  " 

U(9) 

G*y 

V(5) 

A16  °16 

V(24) 

★  it 

a26  d26 

U(10) 

Gss 

V(6) 

A26  °26 

V(25) 

1 

graphic 

variables 

X 

U(ll) 

G 

X 

V(7) 

all  dll 

V  ( 31 ) 

_ 

X 

0(12) 

G 

y 

V(8) 

a22  d22 

X{1) 

Q 

XX 

U(  13) 

■i 

V(9) 

a12  d12 

X(2) 

Q 

yy 

U(14) 

A' 

V(  10) 

a66  d66 

X(3) 

Gxy 

U(  15) 

B' 

V(11) 

a16  d16 

“1 

X(4) 

°ss 

U(  16) 

D1  R+ 

V(  12) 

a26  d26 

X(5) 

U(  17} 

E'  R- 

V  ( 1 3 ) 

*  ★ 
A11  °11 

X(6) 

3 

m  n 

U(  19) 

G11 

V(  14) 

A*  n* 

*22  u22 

X(7) 

2  2 
m  n 

U(20) 

G22 

V(  15) 

<2  G12 

X(8) 

mn3 

mn 

11 


DESCRIPTION 

ffl 

DESCRIPTION 

n 

DESCRIPTION 

Ii 

w 

!PI 

a 

B 

B 

9 

B 

H 

B 

B 

n 

X(9) 

n4 

Y(I) 

6i 

L$ 

m 

X(10) 

HU 

Z(I) 

ni 

M$ 

»  ■< 

V21 

X(ll) 

| _ 

A 

A$ 

"11" 

N$ 

ii  ii 

v16 

4 

X(  16) 

Qij 

B$ 

ii  22 n 

0$ 

"  M 

V61 

X(  17) 

c°  k 

1  K1 

C$ 

"12" 

P$ 

"v  " 
v26 

X  ( 18 ) 

c-  ®  |r 

e2  k2 

D$ 

"66" 

Q$ 

"u  " 
v62 

X(  19) 

e°  k 

C6  6 

E$ 

"16" 

T$(  1) 

II  It 

X(20) 

£x 

F$ 

"26" 

T$(2) 

»«  ★ 

X  ( 2 1 ) 

E 

y 

G$ 

Y/N 

AA$(1) 

"MODULUS" 

X(22) 

es 

H$ 

ANGLE 

AA$(2) 

"COMPLIANCE1 

X(23) 

m2 

1$ 

"E1-" 

w$ 

"MATERIAL" 

X  ( 24 ) 

n2 

J$ 

ll£2*" 

C(I,J) 

MATRIX 
ENTRY 
VARIAR1  FS 

JL- 

JL. 

X  ( 25 ) 

mn 

K$ 

"E6-" 

E 

ho 

X  ( 26 ) 

X(l) 

1 

X  ( 29 ) 

4 

X(4) 

*  Control  variable  **  -  Formate  or  Printing  variable 

x  -  memory  is  not  applicable  a  =  rotation  angle  for  ellipse 

A'  -  E  =  Coefficient  of  elliptic  equation  rotated 
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(0)  SAMPLE  PROBLEMS 


1.  T300/5208,  [02/902/+  452]s  (Version  1) 

2.  T300/5208,  [04/9043s  (Version  2) 

3.  T300/5208,  [0/90/+  45/C0RE4]$  (Version  1) 

1.  T300/5208,  [02/902/±452]s  (Version  1) 


T  300/5208 

ANGLE  1  ■  *5 

NO.  Of  PLIES  -  2 

ANGLE  2  -•  45 
NO. OF  PLIES  -  2 

angle  9  ---•  90 
NO.  Of  PLIES- 
ANGLE  4  -■  0 
NO. OF  PL IkS  -  ? 

N .  OF  CORE  PLIES  0 

IN  PLANE  STIFFNE 
nODULUS 


A1 1 

152. ?36nN/m 

A22 

152.  236nN/fft 

A12 

45.21 4nN/m 

066 

53.  760riN/m 

016 

0. 000fWm 

A26 

0. 000hN/m 

COnPL 

jANCE 

o  1 1 

7 .  1 76m/k  N 

a22 

7. 1 76m /kN 

a  12 

-2. 124m/kN 

a66 

1 8. 600m/kN 

a!6 

0. 000m/kN 

a26 

0. 000m/kN 

El-o 

69. 675GPa 

E2-o 

69. 675GPa 

F.6-o 

26. 880GPa 

v21o 

0.296 

■j!2o 

0.296 

v>6 1  o 

0.  000 

v>16o 

0.000 

v>62o 

0.000 

^>26o 

0.  000 

normalized  const 

MODULUS 

All* 

76. 368GPa 

A22* 

76. 368GPa 

A12* 

22. 607GPa 

A66* 

26. 880GPq 

A16* 

0.  000GPa 

A26* 

0. 000GPa 

JNU.  MAT. < TPa>~ 1 

COMPLIANCE 

all* 

14. 552 

a  22* 

14.352 

o  12* 

-4.248 

a66* 

37. 201 

q  16* 

0.  000 

&26* 

0.000 

N1  -- 

1 . 000MN^m 

N2  3 

A. 000MN/m 

N6  - 

0. 000MN  '<r. 

ANGLt 

3  4.-. 

R+ 

0.699 

N  + 

24 . 000 

Sg  m  <•  - 

-46. 995MPu 

R- 

1  .  550 

n- 

1 7 . 000 

Sgm- 

676. 075MPa 

ANGLi 

7  45 

R  + 

0. 693 

N+ 

74. 000 

,4  6. 995 IP,. 

R-  - 

1  .  950 

N 

3  7 . 000 

Sgm-  - 

675 . 076!"H 

ANGLf 

.3  -  90 

R+  • 

0.5' 2 

^ , 

90 . 000 

''‘5  r‘  k 

776.  ‘ :  - 

k- 

7.  "I" 

Nj 

P.000 

r>  \  r- 

1297.5841'  a 

4  -  0 

k  4 

1.16 

N  < 

1 4 . 000 

, 

58'  .  81  1  41  . 

p- 

’  .  1  30 

N 

16. 000 

S  n  ■ 

561  4  -  1"  • 

9'RESS  S--V  f 
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STRAIN  SPACE  INU.  *AT . < TPa 1- 1 

COMPLIANCE 


pLEX.  STIFFNESS 
MODULUS 


Dll 

76. 842N.  on 

D?2 

44. 692N.m 

D12 

5.21 6N . m 

D66 

8. 065N.  ai 

D16 

2.  679N.  on 

D26 

2. 629N. m 

INU. MAT 

.  fkN.iO-  I 

COMPLIANCE 

d.l  1 

13. 240 

d22 

22. 958 

012 

-1.307 

d56 

127. 697 

d  1 6 

-3.963 

d26 

7.  192 

E  3  •- 1 

1 13. 787GPu 

E2-  f 

6b. 334Gpa 

F6  f 

I I  .  746GPa 

v>2 1  f 

0.098 

>j\2‘ 

0. 056 

^61  •' 

0.  299 

v  1  f:  e 

-  0 . 0  3  1 

^62  f 

0 .  9J3 

K>2b  ( 

0.  056 

nopmoi  ; 

MOI  ■  >LUS 

.'ED  i  ONS  T 

dll* 

8.827 

d22* 

15. 305 

d!2* 

-0. 871 

d66* 

85. 131 

dl6* 

-2.642 

d26* 

-4. 794 

Ml  = 

1 . 000MN 

f12  = 

0. 000MN 

(16  = 

0.000t1H 

ANGLE 

1  =  -45 

R4  = 

0.001 

Sgm+  = 

2349.468MPQ 

R-  = 

0.003 

S9m-  = 

4963. 999MPa 

ANGLE 

2  -  45 

R+  ;=• 

0.  000 

Sgin-*-- 

1007. 201  MPa 

R-  = 

0.001 

Sgm-  = 

2954. 782MPa 

ANGLE 

3  =  90 

R+  ~ 

0.000 

S  3  m  — 

584. 1 84MPa 

R-  ^ 

0.002 

S9  nn-  - 

3149. 567MPa 

ANGLE 

4  -  0 

R-*  ^ 

0.000 

S9m-*- 

818. 912MPa 

R 

0 . 000 

Sgm-  = 

1143.  139(1Pa 

D!l»  HJ.763GP- 

D22*  67.038f<p« 

D 1 2*  ?.R24GPa 

D66*  I  2 . 0976F  a 
D ] 6F  4 . A  1 80Pa 

026*  4.01 8GPci 
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S-  =  0.004 


3.  T300/5208,  [0/90/±45/C0RE4]s  (Version  1) 


i 


*300/5208 


ANGLE  1 

-  -45 

NO.  OF 

PL  I ES  J 

ANGLE  2 

=  45 

NO.  OF 

PLIES  =  1 

ANGLE  3 

•=  30 

NO.  OF 

PLIES  -  1 

ANGLE  4 

=  0 

NO.  OF 

PLIES  -  I 

N . OF  CORE  PLIES  4 

IN  PLANE  STIFFNE 

MODULUS 

A 1  J 

76. 368MN/m 

A22 

76. 368MN/m 

A I  2 

22. 607MN/m 

A66 

26. 880MN/m 

A  1  6 

- 0 . 000MN/m 

A26 

-0. 000MN/m 

COMPLIANCE 

o  1  1 

1  4  .  35 2n/k  N 

a27 

1 4 .  352m/k  N 

a  1 2 

-4 . 248n/kN 

a66 

37. 201m/kN 

a  1 6 

0 . 000n/k  N 

a?6 

0 . 000n'k  N 

El-o 

69. 675GPa 

F'2--o 

63. 675GPa 

r  6-o 

26. 880GP« 

a  2 1  o 

0.296 

g  1 2  o 

0.296 

o61  o 

0 . 000 

■j  I  6o 

0.000 

-.'62  o 

0 . 000 

v^76o 

0.000 

NORMAL  I 

2F0  CONST 

MODULUS 

AJ  lit 

76. 368GPa 

A22* 

36. 368GPa 

A 12* 

22. 607GPa 

A66* 

26. 880GPa 

A 1  6* 

-0 . 000GPa 

A26* 

-  0 . 000GPa 

INU. 

MAT. <  TPa>- 1 

COMPLIANCE 

all* 

14.352 

o.22* 

14.352 

al2* 

-4.248 

q66* 

37.201 

a  1 6* 

0.000 

a26* 

0 . 000 

Nt  V 

1 . 000MN/m 

N2  - 

0 . 00PMN  in 

No  ~ 

0 . 000I1N  '  n 

ANGLE 

-  --  -45 

R+  - 

0.  346 

N  i  = 

2  4 . 000 

>9  ■- 

346. 995MPa 

R- 

0.675 

N  - 

1 2 . 000 

S  9  rri  -  - 

675. 075MPci 

mNCL  e 

2  -■  45 

R-+ 

0.  346 

N  f 

2  .  000 

S  9  n  ^  - 

34 O.  939'"3'a 

R  ■  - 

0 . 6  ’5 

N 

: .000 

n 

6  5.  0.  '5MFa 

ANGl  r 

j 

90 

0. :  "’6 

N  * 

3.1. 000 

Tit  - 

6.11  ST’r’a 

R- 

'.19 

N 

9.000 

5m  n 

1  . 

“  .  ->84MPi. 

ANGl.  E 

4 

0 

R4 

P.  981 

N* 

1 4 . 000 

-  )  n  l  ~ 

.0  !  .  8  1  1  Mp  i 

R- 

0 .  365 

N 

.  G  .  0  0  PI 

Cl  T,  - 

' T> 9 . 4]  3'tf  , 

STRESS  SPAl.r 


STRAJN  SPACE 

0.022222 


FLEX.  STIFFNESS 
MODULUS 

D 1  1 

52. 932N. n 

D22 

43. 555N. n 

D 1  7 

9 . 43 1 N . n 

D66 

1 1 . 984N . n 

D  J  6 

I . 624N. n 

D26 

1 . 674N . n 

INU. MAT. 

,  <  k  N .  n  )  -  1 

COMPLIANCE 

dl  1 

19. 216 

d22 

23.983 

dl  2 

4.213 

d66 

84. 129 

d!6 

-2.166 

d26 

-2. 762 

El  -  f 

76. 079GPa 

Ml  =  1  . 

E2-  f 

62. 542GPa 

M2  =  0. 

E6-  f 

17. 829GPa 

M6  =  0. 

v21  f 

0.213 

v- 12  f 

0.  175 

ANGLE  1  •= 

^61  f 

-0. 109 

R+  =  0. 

1 6  f 

-0.025 

617. 

v62f 

-0. 115 

v26f 

-0.032 

R-  =  0. 

S  gm-  =  1258. 

NORMAL 1  ZED  CONST 
MODULUS 

ANGLE  2  = 

Dll* 

79. 398GPa 

R+  =  0. 

D22* 

65. 333GPa 

Sgm-*--  486. 

D12* 

1 4 . 237GPa 

D66* 

17. 976GPa 

R-  =  0. 

016* 

2. 51 lGPa 

Sgm-  =  1115. 

D26* 

2. 51 1 GPa 

INU.  MAI 

<TPa)-l 

ANGLE  3  = 

COMPLIANCE 

R-+  =  0, 

Sgm+-  342. 

dl  1* 

13.144 

d22* 

15. 089 

R-  •=  0 

dl  2* 

-2.808 

Sgm-  =  1739 

d66* 

56.086 

d  1 6* 

-1  .  d44 

d26* 

-1.841 

ANGLE  4  - 
R+  =  0 

Sgm+  =  606 

R-  =  0 

Sgm-  =  684 

000MN 

000MN 

000MN 

-45 

000 

319t1Pa 

000 

085MPa 


45 

000 

485MPa 

000 

31  ?!1Pa 


90 

000 

839f1Pa 

001 

.  766MPa 


0 

.000 
.  418MPa 

.  000 
.  798MPa 
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t:  "SYfl-LAfll " : 

INPUT  “COLOR  ? 
(0,  1,  2,  3)“;CC: 
COLOR  CC 
2: TEXT 

3 :  D 1 M  X ( 30 ) ,  v<20 
),  2(20),  U(25), 
A<31>,  B(31  ),  U' 
24),  A$(2) 

4.  DATA  rlJ“,  22“ 

,  ’  I  2“ ,  "66“ ,  ■'  16 
"26“ 

S; RES TORE  4:rQR 
I  -  1  TO  6. READ  9 
$ < I ) : NEXT  I 
6: DATA  “El-“, ”E2 
“E6~“,  "v2i 1 

,  '’vl2’  ,  '  v6  1  “ j  ' 
sj  1  6  “ ,  '  j62“  ,  “u2 

6 

>■.  RESTORE  6. ‘  OR 
1  --53  TO  1  >' :  Ri.  AO 
0$ (I>; NEXT  ! 
ft.  INPUT  MATERIA 
L  N.  -<  Cl  FOR  (IE 
NU)'  ;G*:IF  G$-; 
"FT'GQTO  135 
3;  !  -UAL  S$*l 0: 
GOSUB  ' : 

RETT  TORE  I  •  READ 
0  $  ^  A ,  8 ,  C ,  D,  Ei  ° 

.  0,  R,  S,  T: 

IF’RINT  W$:GOTn 
200 

'  0,  8A7 A  '  T  -100/620 
8 '  •  '  85 1  1,  :  0.  3E 
3.  .  26.  ’ .  I  1 1  T •  • 
75  E  8.  '  530,  1 5 
00,  <10,  246,  68. 
RE 'URN 

20. PAT  A  '8(4 )/0b0 
6”.  204  l  3,  '  ft.  UE 
3.  .  23,  5. 59E3,  . 

1  ?‘)t  3.  '  2^0,  25 
00,  61,  202,  63. 
Ri"r'  ,RN 

30.  PAT  A  “  Aft/ 8-50  1 “ 

.  38E3,  ft .  AGE  3, 
30,  !0E3.  .  \2 

S  3,  '.447,  144  -’ 
.  61  ,  >,  206,  93; 
RETURN 


(E)  PROGRAM  LISTING 
1.  SYM  -  LAM  1 


40: DATA  “5C0TCHPL 
V/3002  38.6E3 

.  8.273,  .26,  4.  l 
4E3,  -  1  25E-3,  10 
62,  610,  31,  118, 
72: RETURN 
30: DATA  ' KEULAR  4 
9/EPOXY",  76E3, 

5. 5F3,  .  34,  2.30 
E3,  .  125E-3,  140 
0,  235,  12,  53,  34 
: RETURN 
60:  DATA  '  : 

RE' TURN 
70: DATA  “ 

RETURN 
80: DATA  “  “• 

RETURN 
30:  DATA  “ 

RL  TURN 
100: DA 'A 
RETURN 

130- USING  "&&&&### 
RETURN 

191:  USING  &8.&8.&&.S. 
SS.&&&&&&&" : 

Rt  TURN 

1 93 : pOR  I -1  TO  10: 
GOSUB  1*10; 
RESTORE  1*10: 
READ 

1 97 : °AUSE  !, 

' ; N$ . NEXT  1- 
GOTO  B 

200:  LF  (  ]  )  :  A$ (  1  ) “ 
MODULUS" . A$(2  > 

-  “CCNRL 1 ANCE“ - 
AA-U90:  88-  1  3 1 
210:  pAUSr.  “DEFINE 
THE  LAMINATE” 
220: r- 1/(1 -CTCYB/A 
•» 

230: X( 1 >-P *A, X(2)- 
F X(3>^F*C*B 
.  X (4 ) - 0 

260: INPUT  HOW  MAN 
v  ANGLES-' ;G 
270:  :~OR  1  - .  TO  G 
280:  INPUT  “ANGLES 
;V(  •  ? 

290: H*- “ANGLE  "+ 
STR*  ( J  >  +  “  =“ 


300:  LPRINT  H*J  vr  ] 
330: INPUT  “NO. OF  P 
L]ES=“:7U  ) 
315: LPRINT  “  NO. OF 
PLIES  -  “ ; 2(1 


316: NEXT  1 
317: INPUT  “N.OF  CO 
RE  PL  I ES- < FLEX 
'i " ;  7(0) 

318: LPRINT  USING  “ 

&###“: "N.OF  CO 
RE  DL I ES“ ; 7(0) 
320: pAUSE  “ANSWER 
■vVN  FOR  LI  ST  IN 
G“ 

323: ! NPUT  ! IN- PL AN 
E  STIFFNESS  - 
v/H?" 5  G$ 

324 : X$-" IN  PLANE  S 
'  IFFNESS1' 

323  ■  GO  SUB  6.^0: 

GJSUB  6B0 
T23: rOR  J-ITO  G 
330: GO SUB  700 
'3  35:  X(  1  0 ) -X (  1  0 )  +  2* 
E  *2  ( I  ) 

340: U( I )- ?*-( I )*E 
350: GOSUP  1100 
360: NEXT  I 
-66:  '  -65.  ' 7  -0.  XX  1 
2*-"MN/in“  .  1  F 
G$-''Y"GOSL'H  3ft 
0 

376: GOTO  540 
360: ..  E  (]'■ COLOR  1 
390: FOSUB  HR: 

l.r'RJNT  X$,  8$';T 
r  '6+ 1  )  : LF  (1  ) 
400:  .USUP  AA: p OR  I 
1  rO  6 

405; LPRINT  CHR$  7- 

,  ;c I *7  T  i* 

XX;  U$ 

4  10.  NEXT  .1:  RETURN 
430. :  r  ( ] ) : COLOR  1 
497;  .  I*- “CPU" 

500:  POR  I  -1  TCI  3 
505:  XX.-lt.-3.  I  F  1  >3 
THEN  LET  XX- 1, 
U*  =  ’"' 
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510: GQSUB  190: 

LPRINT  @*  C 1 +8 ) 

*•  CHR$  Z;ACI)¥X 

x;  u$ 

515: NEX  r  J 
518: RETURN 
540: GOSUB  800 
560:  x$-"  :' :  Z-97:  TT  - 
6: XX-1E3: U$="m 
/kN”:  IF  G*^"X‘' 
GOSUB  380 
580: GOSUB  1200 
585:  Z  ---1  1 1 

590:  INPUT  " ENG J NEE 
RING  CST  -  V/N 
?  ;  G$ 

592:  IF  G$-"Y‘'GOSUB 
4  90 

600: INPUT  "NORNALI 
ZED  CST  -  Y/N? 
;G$ 

602: X$- "NORHAL 1  ZED 
CONST. ” 

605:  Z=65:  T  T  -  - 1 2 :  XX- 
1 E-3: U$- " GPa" : 
IF  G$=  ’’ Y " GOSUB 
630 

610:  X$-r  1NU.  NAT  .  < 

T  p  a )  -  1  " 

615:  7  =  32 : tt*18:XX= 
1E6:  U$-'’ " :  IF  G 
$-''Y‘'GOSUB  630 
620: GOTO  1300 
630: LF  (1): GOSUB  1 
91 : LPRINT  X*,  A 
*CCTT-9)/64l): 
LF  Cl  ) 

640:  c^OR  1-1  TO  6 
645: GOSUB  AA. 

LPRINT  CHR$  Z-+ 

Tn*XX;  U$ 

650: NEXT  I: RETURN 
620: P OR  J-10TO  16 
622 :  X  C  J  ) --0 :  NEXT  J 
675: RETURN 
680: POR  1-1  TO  6 
684: UC J  >-0 
688: NEXT  J 
690: RETURN 
700: XC5)=CC0S  YCI) 
)a4, XC6)~CC0S 
vc  1  )  )''3¥SJN  Y C 
I  ) 

710: XC7)-CC0S  YCI ) 
*SIN  YCI)  )r'2l  X 
C8)-CG5  YCI  )  ¥C 
SIN  YCI > )^3 


720: X(9)=CS1N  YCI) 

240:  XC 1 1 )-XC 1 )¥XC5 
)4XC2)¥XC9)42¥ 
X(7)¥CX(3)42¥X 
C4 ) ) 

750:  XC 12)-XC 1 )¥XC9 
)4X(2)¥XC5)42¥ 
XC7)¥CXC3)42¥X 
C  4  )  ) 

760: XC13)-XC7)¥CXC 
1 )+XC2)-4YXC4) 
)+XC3)¥CXC5)-+X 
C9) ) 

770:XC14)-XC7)¥CXC 
1  )4XC2)-2¥XC3) 
)+XC4)*CXC5)-2 
¥XC7)4XC9) ) 

780:  XC  15)--XC  1  >¥XC6 
)~XC2)¥XC8)+CX 
C8)-XC6))¥CXC3 
)42¥XC4) ) 

790: XC16)-XC1)¥XC8 
)  -  X C2 ) ¥X ( 6 ) 4  C X 
C6)-XC8) )¥CXC3 
)  42¥X  C  4 ) ) 

735: RETURN 

800: DT-UC I )¥UC2)¥U 
C  4 ) 42¥U  C  3 ) ¥UC6 
)¥UC5)-UC2)¥UC 

5) a2-UC4)¥UC3) 
■^2-UC  i  )¥UC6 )*2 

820: UC7)~CUC2)¥UC4 
)-UC6)^2)/DT 

825: UC8)-CUC 1 )¥UC4 
>-UC5W)/DT 

830 :UC9)-C<JC5)¥UC6 
)-UC3)¥UC4  )  )/D 
T 

840: UC 13)=CUC 1 )¥UC 
2)-UC3  W7/DT 

850: UC 1 1 )=CUC3)¥UC 

6) ~UC2)¥UC5))/ 
DT 

860:UC12)-CUC3)¥UC 
5)~UC I )¥UC6) )/ 
DT 

980: RETURN 
1  000; UC 1 )  =  1  /  P/Q,  U 
(2)~  1 /P- 1/Q 
1010: UC  3 )  =  1 /R/S,  U 
(  4  )~ 1 /R-  1  /S, 
UC5)-1/T/T 
1020: UC3)- J /R/S,  U 
C4)-l/R- 1 /S, 
UC5)=1/T/T 
1025:0^-1/2 


1 030 : U  C  6 ) =0¥/ C  U  C 1 
)  ¥U  C  3 ) ) 

1040: UC7)-UC 1 )¥XC 
1 )^242¥UC6)¥ 
XC  1  )¥XC3)4UC 
3)¥XC3W 
1050: UC8)-UC 1 >¥XC 
3)'*'242¥UC6)¥ 
XC3)¥XC2)4UC 

3) ¥XC2)A2 
1060: UC9)-UC 1 )¥XC 

1  )¥XC3)4UC6) 

% C  X  C 1 ) ¥X  c  2  > 4 
XC3)A2)4UC3) 
YX  C  3 ) ¥X  C  2 ) 

1 070 : U  C 1 0 ) -U  C  5 ) XX 
C4)A2,  UC 1 1 )- 
UC2)¥XC1 ) 4U  C 

4) ¥XC3),  U  C 1 2 
) =U  C  2 ) ¥X  C  3)4 
UC4 )¥XC2) 

1 080 : RETURN 
I  100.'UC1  )---UC!  )4UC 
I  )¥XC  1  1  ),  U C 2 
)=UC2)4UC  J )¥ 
XC  12),  U  C 3 ) -U 
c  3)4UC 1 ) ¥ X C 1 
3) 

1  1  1  0:  U C  4  )  -  -U  C  4  ) -+U  C 
1 )¥XC 14), UC5 
)=UC5)+UC 1 )¥ 
XC  15),  UC6)-U 
C6)4UC 1 )¥XC 1 
6) 

1  130: RE  TURN 
1200: AC  1 >  =  1/XC 10) 
/  U  C  7 ) ,  A  C  2 )  ■- 1 
-'XC  1  0 ) /U  C  8 ) , 
AC3)=1/XC 10) 
'UC 10) 

1210; AC4 ) - - U  C  9 ) / U 
C  7  ) ,  A  C  5  )  '-  -  U  C 
9)/UC8),  AC  6) 
-UC  1  1  )/UC7) 
1220. Ac7)=UC 1 1 )/U 
C  1  0  ) ,  A  C  8  )  -  U  C 
12)/UC8), ACS 
)=UC 12)/Uc 10 
) 

I  230:  :-0R  J--1T0  6 
1235: UC J* 12)-UCJ ) 
/XC 10) 

1237:  UC-J4  1 8)-UCJ4 
6)¥XC 10) 
1240: NEXT  J 
1270. RETURN 
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1100:  TEXT  : COLOR 
2 

’320: INPUT  1  IN  PL 
ANE  STRENGTH 
-  YVN?';C$ 
1330. lF  (1).H  G$ 

- "N"GOTO  260 
0 

!340:  7  '-’S.  ij$-  "nN/ 
on1'  :  GOSUB  139 
0 

’.350:  GOTO  1420 
1330:  Lf  UU^OR  1 
--- 1  !  T  0  13 
’  893:  X$-CHR$ 

N]D$  (@$ (1-2 
i)  2)  !  > 4  " 
PRINT  X$  ‘  "  C " 
Hj$  * ;  : 

I  NP'J T  I3C1) 
i.  400:  GC'SUR  A  A  • 
LPRINT 
1  .)  i  U4 

I  41  0:  NfIXT  I  . 
RETURN 

’420:  v  ( 1  2  )  ~’U  (  3  >  XK 
fU(9>*L-AJ(  1  1 
i  xn 

’430: XU  8)  U(9)XK 
*U(8.'  XL+U(  13 

)*n 

'  440:  XU  9)-  -U<  J  1  )X 
K  +  U  (  1  2  X  L  *  U  ( 

!0)*n 

'450:  OR  1.1  TO  C. 

1  460:  *!$-■•" ANGLE  "  «• 

•■•:r$  cl)-*- 

’ 4  30 : L  r  (1) 

’  4  80:  US  I  NO 

14  30:’’  h$-  "Y" 

l  P  R  1  N  f  H  4- :  v  C 

.’  ‘  00 .  OS  UP  1  530 
’301 : POPUP  1000 
02  :  GOSUB  1  600 
'310: GOSUB  1 630 
'320; NEXT  ! 
'330:00 TO  2600 
’56 YU) 
’333: X (23)  -(COS  v 
<  I  )  ) •"'2,  V(24  i 
-(SIN  YU  1  )•'• 
2,  X(  23.'  -CD' 
V(  n*S!N  YU 


1560:  XC20)=XU7)X 
X(23)+X< 18)* 
X(24)  +  XU9)X 
X(25) 

1520: X(21 )  -X  ( 1 7  )X 
X(24)  +  XU8)X 
X(23)-XC19)X 
X  (  2  5 ) 

1580: X (22 ) -2XX (25 
)T(X( 18)-X( 1 
7))+X(19)*(X 
<23)-X(24 )  ) 

1 585:  YU  )-- YU  ) 
1590: RETURN 
1600:UU3)-U(7)XX 
(20)''2+2tU(9 
>XXC20)XX(21 
)+U(8)XX(21 ) 
^2+UU0)XX(2 
2  W 

1605: U(1 4 )-U( 1  ’  )X 
X(20)+UU2)T 
X  (2  1  ) 

I  6 1 0 : U ( 1 5 ) -U (14)/ 
U(13)/2 

1615:  UU6)--U(  15) 
UCUU5W-U 
'U  Cl  3) ) 

J620:UU7)-U(J5)  + 
T(U(15W+1/ 
U( 13) ) 

1 625 :B(1)-1NT  (XC 
1 0 ) / E / U ( 16)/ 
2-+  1  )X2,  B  (  2 )  - 
!  NT  (XO01/E 
/U(  3  7  ) / 2 ■+  1  )X 
2 

1630: B(3)-U(16)/X 
U  0  ) ,  B  ( 4  )  -  U  ( 
17)/X(10) 
1635. RETURN 
1650: IF  G4- "N" 
THEN  ’685 
1  653 :  US  1  NG  "&&£.&& 
#####.*##•• 
1655: lPRINT  ”R+ 

- " ; u<  J  6 ) 
1657: JF  U*-"riN" 
THEN  1665 
1 660 : LPR i NT  "N+ 

B(  1  ) 

1665:  LPRINT  "Sgm-* 
;  B(3) ;  "HPa 

1620: LPRINT  "R- 

-”;uu?) 

1672:  IF  U$-"nN" 
THEN  1680 
1675: LPRINT  "N- 
=  "  ; B(2) 


!  680: LPRINT  "S9m- 
- " ; B ( 4  )  j  '  HP u 

1685. RETURN 

1700.  GRAPH  . COLOR 
2 

1701 .  GLCURSOR  (12 
0,-  320): 

SORGN 

1702: L  3NE  (0,  100 

)-(0,  100),  0, 

1 

’703- L 1NE  (-100, 0 
1-U00,  0),  0, 

1 

1705: ’NPUT  "ANGLE 
NO.  1S^' ;  ! 
1710. IF  1 >GTHEN  2 
370 

1711:  AREA!)  Y(  1  ) 
1712: ARE AO  7(1) 
1715. INPUT  "COLOR 
NO.  IS-  "  ;  7 
171  ’.  X(2 6)^X0  .X 
( 77 ) •X(7 ) , X( 

2  8 )  -  X  ( 3  ’ ,  Xs.2 
9  )  -  X  ( 4  i 

’ 770; COSUB  1000 
1730:  XU  ) - U C 7  ’ .  U 
7)-U( 8 > ,  X  .3) 
-■■U  ( 9  ) ,  X  (  4  ’  •  J 
(10) 

’740. GOSUB  670 
17)0. GOSUB  700 
1780.  XU'  -  X  ( 26  ) ,  X  . 
(2)-  XU'7),  X( 

3 )  -  X  ( 7  8  ,  v  4 
’  -X ( 79 ) 

1810.  J(  1  9  ••  X  .  1  1  . 

U  (30 )  -  X  (  :7\. 

J  (71)  X(  1  7 

J  ( 2  7  )  •  X  (  1  4  , 

;  820.  X(23)  -  (TO:  > 

(  1  )  W-  X  ( 7  4  '■ 

-  ( S  J  n  y  ( ]  '  ■>  ^ 

2 

1830; J (23 ’-J( ’ i ’X 
X  ( 2  3 1  -*  U  (  17  i* 
X( 24  0(24  - 

j(  1  1  ’  XX  (  2d  )-* 
UU3)XX(23) 
1833.  ’p  N-3THE‘N  7 
100 

1840;  PU9)  -  U(  JR)X 
U(7)4'2+U(21  ) 
XU  (  7  ’  XU  (  9 )  +  U 
(  20 )  XU  (  9  ’  "v  * 
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U(77)*U(  3  1 
2 

1850;  P ( 28)-L'\  13)* 
0(3  W+UC71 > 
*U(9)*U(8)  *  U 
(20)*U(8KV  • 
U  ( 22 )  *U  ( 1  2 
2 

I860: 8(21 )-U( 19)* 
■J(7)*U(9)+U( 
2 1 ) *U  (  7 ) *U C  8 
i +U ( 20 ) *U ( 9 ) 
XU(  8) 

1870:8(21 ) "8 C  2 1 > * 
U  ( 22  )W(1!H 
0  C 1  7 ) 

1880. R  ( 7  3 )  •  o  ( 2  3 )  * 
U(7)+U(24  i*<J 
(  0) 

'830-  8(24)  -JC23'* 
U(3)  +  IK24)*U 
<■8) 

1900-  J(  19)--R(  19), 
UC20)-  8(20). 
J  ( 2 1  i  •  R  ( 7 1  ,i , 
UC73>  8(73), 
J  v  2 4  i  Rf.  24  ' 
2300. :)  -U(  1 9)  ;j(70 
1 

73)0.  ’!•  G  0ANL1  IK 
7 1 ) >0 1 HEN  73 

30 

731  K  )>  9  0ANO  IK 

71  ’ <  0THLN  73 
33 

7370.  1  91.  f  ATN  ( 

7  VJ (  7  ’  >/  (Lit  ) 
‘6-  K20)  )).••' 
7-r.GTr  2340 
7330.  J-  1.31  -45; 

1,0 TO  7  44  0 
7  -i  -is  ;  l  f  ]  4  1  •  ■  4.9 
7340.  .K14>  ..  j(  io 

<  70S  U(  13  .1  ,ia 
7  *  7*TK  7 1  )* 
LOS  IK  13)* 
KIN  U ( 1 3 1  +  U ( 

70 ) * ( s l n  ;j(  ’ 

31)^2 

7330:  Ji  3 .9)  !.Kl:6K 
''SIN  J  (  1  3  i  I  ^ 
2  7*M  .71  1  * 

, : N  UC 1 3  )  * 
LOS  U  <  1  3 )  + 'J ( 

?0>*a:os  u<  i 

31  W 


7360: U( 16)  -U(231* 
COS  LK  3  3  )  -+  U  ( 
24)*SJN  U  ( 1 3 
1 

7 370:  lK  17)  -  U(23) 

.  *SIN  U(13)+U 
(  24  .1  *C05  IK  1 

3) 

2380  :U(18)--1  +  U(16 
W/U(  14)/4  + 
U( 17W/U( 15 
1/4 

2390:  X-JKU(18)/U( 
14)),  v..-j-(U(l 
8)/U(15)) 
7400:  0—  U(  16)/U(  1 

4) /7,  U-  LK  1  7 
i/U( 15)/2 

2410:  H -U*L'OS  LK  1  3 
>-U^S J N  U(  1  3 

>,ti~u*siN  ,j( 
1  3)  +  UXCOS  U>) 
13) 

2420:  U-H,  J-fl 
2430:  X~X*U,  Y-y^Ll, 
U-U*LI,  U-UX14 
2480: 8(0) -XXC05  U 
<  13)  ^U,  B  ( 0 )  - 
X*SIN  U( 13)+ 
U 

2490: tOR  J  1 TQ  3] 
2500:  A(J)^X*COS  C 
12*J  l,  B <■  J  l - Y 
*SIN  (12XJ) 
2510: <1-A ( J ) *COS  U 
(  1  3 .1  B  ( J  1 * 
SIN  J ( j  3 ) , H- 
A ( J i X 5  I N  U(  1 
3.1  +  P''.  J  i*COs 
U  (  1  3  ) 

2520. ‘KJi  H+tj,  R(  J 
1---H+U 

2540: L  IN,  <  A ( J  11 
,  BCJ  -  )  i  ;•  v  A 

ii,  b c j  ■ ),  0, 
2550: NEXT  .1 
2560: GOTO  1705 
2570:  lINl  (-4,  60 

l-(  4,  -60),  0, 

1 

2572 : L  1  NT  (-4 ,60) 
-(4,  60),  0,  1 
2573: LINK  (60,-4) 
-(60,  4i,0,  1 
2574 : L INl  ( •  60;  -4 
l-(  60.  4  ),  0, 


2575: 1 r  N-l THEN 

LET  K -60/XX/ 
M; GOTO  2585 
2580 :  X-  60/14 
2585: GLCUkSOR  (-6 
0,  90)  .  80RGN 
7586: If  N-2 THEN  2 
588 

2587 :  US  1  Nb  "4444# 
4.48.R&". GOTO 

2590 

2588 : US  1 NG  "##.4# 
4444‘ 

2590; LPRlNT  K:U$. 

TEXT  . LF  30 
2d3J • TFXT  .RETURN 
7600:  XX- -X<.  10)  :N^1 
u$-  "NPq" : 
INPUT  "FAIL. 
FNU. IN  STRtS 
S  -  Y/N?"  i  C:$ 
: 1 F  G$- "N " 

T HE N  764  0 
2601: USING  " &&&&& 

8S.8.R88S.8." 
2605 : T r  XT  . LF  (7) 
2610:  ,4  -30 
76 15. 5PR  J  N T  ■'  5 

TRESS  SPACL 
7620 : GOSUB  1700 
7630:  INPUT  "NEi4  S 
GALE  Y/N?" 
;G$;'F  G$--"N 
"GOTO  2640 
2635:  INPUT  "14-  ?" 

:  14.  GO  ’  0  2615 
764  0.  N  7.  J4 "  ; 

NP1 J  T  ‘KAIL. 
ENU.  ’N  S  TEA  1 
N  vvn?" : 

IT  b$- " N" 
THEN  27’ 00 
7641:  USING  "&&&S.S. 
8&&.&K&&&&&1U 
88,&8&8&&888" 
2646; TEXT  . LF  (2) 
7650.  <4  7700 
2655.  !.  PRINT  "  S 
TRAIN  SPACE" 
2660. GOSUB  1700 
7670:  INPUT  "NES4  S 
lALE  ?Y/N".G 
*. IF  G$-"N" 
GOTO  2700 
2680:  INPUT  "14-- 

;  ul:  GOTO  7655 


2700; 
;V]0. 

7720. 
2240. 

226b: 

2220. 

2280: 

2285: 

2200. 

2800. 
2820: 
2850: 

2010. 

2920. 

2990. 

2940: 

.959; 
2960; 
2  .'165. 

’920 
9  000 

4005 

’010. 

9040: 

-1050. 

9  .!  60; 


60SUP  RP.tr 
<  i  ’ 

INPUT  '■  :.t  xu 
RAL  SUM  Nt  9 
S  -  V'/N?  ,  >$ 

X$- " 1 1 f  X .  ST 
If  f  NT  SS" 
it  Cl': GOSUB 
620.  GOSUB  68 
0 

X  C 1  0 )  : 2<  0) *L 
‘•or  i  no  o 

GOSUB  200 
XC  10MXC  10)-* 
E*Z(  i  ) 

.  i C I )-2/3*(X( 
'.  0  )  M3  -  (  X  (  1  0  ) 
Z( i  >*t)^3> 

1  .nsuB  :  1 00 
next 

'  68. TT  0: XX 
- 1 1  6  .  U$-;  “  N .  ti 
1 ,  M  2$  "Y" 
GQSUH  380 
GO SUP  800 
XS  "1NU.1AT. 
CkN. tO  1  ' 

2  - !00.  rT-  6. X 
X-  If  9.  Jt 

•  IF  r,$.-"V'- 

GOSUB  ’80 
x  c  1 0)  2*x<. :  0 

1A.9  -.2 

f.OSUH  1200 
■’  102 

'NT  JT  i  NG  j  N 

‘■■Li.x.Lsr  v 

'NY"  :  .$ 

”  i.t 

GOS'UB  490 
'NKM  'NORM . 

‘  i  i  x .  s  r  •' 

-’N : ' .  "$ 

'•'$  :  NORMAL  :  Z 
Ml  '..  ONST" 

7  68. T ’  12- < 
X  IE  3; U*  G 
‘•  O'  .11  G$  'Y 
'GOSUB  630 
X*-  I  NO.  NOT 
<  T  r J  a  I  ' 

100.  M  18: 
XX-  1  t  6.  il$-  ■' ' 
if  G$ 

GO  SlJB  S’ 30 
OL  OR  7 


3165: 


3170: 

3180: 

3200: 

3210: 

3220: 


3238: 

3232. 

3235: 


3240 

3250 

3255: 

3260 


3268 
’220. 


3225 

3/22 

9260 

3285 


9290 
3300 
3.3 1  0 
3320 
3330 


INPUT  "  FLE 
XURPL  STRENG 

TH  -  Y/N? 

G$ 

IF  G$  '  N“ 
GOTO  3.330 

2=77:  U*="f*IN" 

: GOSUB  1390 

X  (  1 7 ) =U < 7 ) ¥K 
OJ(9)*L-+UCn 

>*n 

X(18)-U<9)*K 

+U(8)*L+U<12 

>*n 

X(  1  5)-~U(  1  1  )* 
K+UC 12’*L *U( 
i0)xn 

A(0)-Z(0)*L 
U  -  X  C  1  0  ) 
XC0)---  M'6* 
r.'XP  C 2 -'3XLN 
<X( 10;*12) ) 

‘  OR  1  TO  G 
AC  I  ' -  AC  !  -])•+ 
7  (  1  )  X  f 
LF  Cl) 

H$  ANGLE.  "  * 
STR$  ( 1  )  +  " 

0  L$"N‘ 

GOTO  3725 
USING  '•g.RRg.ii 

LPR1NT  H$M'C 

1  ) 

GOSUB  1  5:d5 
V(1  )-  v<  j  i 
i  S/S JB  1000 
X ( 20 ) "X  C  20) X 
A  C  i  )  .  X C  2  1  > -  X 
C/I )XA<  1  y  > 
77)  XC22  ■>  XAC 
1  ) 

:  Gl  SUB  ’600 
:  GuSilB  1650 

.  Nf  V  j-  1 

.  x  <:  1 0 )  w 
:  '  O’O  37  ’ 


23 


2.  SYM  -  LAM  2 


t:  "SYf1-LAri2" • 

INPUT  "COLOR  ? 

( 0,  1, 2,  3)  " ;  cc 
. COLOR  CC 
2: GRAPH  .ROTATE 
1 . KK-  ]  • 

CLCURSOR  (200, 

0  :  30RGN 

3.  nin  x ( 30),  y (20 

>,  L ( 3.  3),  U(24> 

,  t $ (  2  ) ,  ?(20>,  U 
(25),  A  ( 3 1  ),  8(3 
I  •> 

7.  DATA  1,  3,  5,  3,  2 
,  G,  5,  6,  d  •  rOR  1 
•-1TO  3n:OR  J  =  1 
T 0  3:  READ  C(I, 
n.NLXT  J.NEXT 
l.  GOSUB  140 
8. INPUT  "NATERIA 

l  n.  (n  for  n 

ENU>" ;G$. IF  GS 
•  "H  GOTO  195 
9;  ’  - JAL  GS* 10. 
COSUB  1 . 

RESTORE  l.Rc-AO 
US,  A,  B,  L,  0,  c.,  u 
,  Q,  R,  S.  T; 

LPRINT  US ; COTQ 
200 

10. PA' A  1 ' 300/520 
8'  ,  IPJE3,  !  0 .  3t 
3,  .  38,  !?E3,  • 

1  25E  3,  500,  1  5 
00.  4  0,  246,  68. 

RE  TURN 

20. PA' A  1 B'4)/550 
5".  204 E 3,  1  8 . 5 E 
3,  .  23,  5. 5BE3,  1 
?br.  -3,  1260,  250 
0,  61,  202.  67. 
RETURN 

30 .  f;AT A  "AS/ 3501 
.  138E3,  8.  96E3, 
30,  1  0E3,  .  12 

5E  •?,  1447,  1  44  7 
.51.3,  706,  93- 
RE  T 1 JRN 

40. DATA  "SCOTCHPL 
V  1002  •  38.61  3 
.  8.  7?fc  3.  .  76,  4. 
'41  8,  .  I  25L  -  3,  ’ 
067.  6  10,  31 ,  1’  ft 

.  37 . return 


50: DATA  "KEULAR  4 
9/EPOXY", 36E3, 
5.5E3, . 34, 2. 30 
E3,  .  1 25E-3,  140 
0,  235,  12,  53,  34 
: RETURN 

60: DATA  RETURN 

70: DATA  "".RETURN 
80: DATA  "  .RETURN 
90 : DAT  A  "  " : RETURN 
1 00:  DA TA  RETURN 

140:  DATA  "E1-",  F2 
"E6- ",  ^21" 

,  "ol2".  "v61 ", 

v,  1 6" ,  /62  ",  '-’2 

6" 

1 50: RESTORE  140: 

POR  I--9T0  37: 
READ  0S( I >: 

NEXT  I. RETURN 
1  90 :  US  1  NC-i  ' 

&  8.8.8. 8,&8.8.&8,8>&"  : 
RETURN 

1  91 ;  US  I NG  *##«### 

.  «*##"  :  RE  T  URN 
195: C0R  1  ’TO  10: 
G0SU8  !* 10- 
RESTORE  1*10. 
READ  US 

197. PAUSE  1 ; '  - 

"  ;  us: NEXT  1. 
GOTO  8 

700;  TS( 1 )  "  1  • T$<7) 

.aa---i3:-pp 

-4E3 : LL-St 3 
210. DAUSf  1  DEFINE 
THE  LAD 1 NAT E " 
220:  p  - 1  /  (  1  -C*C*B/A 

■> 

730: X( 1 )  F*A, X  ( 2  >  - 
r*B, X ( 3 )-F  *C*B 
, X(4 >-D 

260: INPUT  "HOW  HAN 
Y  ANGLf.S-"  ;  G 
^70:  J -0:  p  OR  1- 1  TO 
G:  t~J  1  l 

?80;  INPUT  "  ANGLt-'" 
5(1! 

?90:  HS="ANGLt-  "  f 
STRS  (1)5  " 

300: GOSUB  LL • 

LPRINT  US;  v(  1 
310; INPUT  "NO. OF  P 
l  ! FS  •  " : 2( 1  ' 


31 3; GOSUB  LL: 

LPRINT  "  No  OF 
PLIES  -  " ! 7( 1 
);IF  J=4GQSU8 
PP: J=0 
315: NEXT  1 
316:  INPUT  "N. OF  CO 
RE  PLIES=(FLEX 
> " ; ?(0) 

317:  GOSUB  LL: GOSUB 
LL : LPR i NT 
USING  "&&&&&&& 
&&&&&&&&«**« " :  ' 

N . OF  CORE  PL  IE 
S";?(0> 

318- KK-1 . I ; COSUB  P 

p 

320: PAUSE  "ANSWER 
v/N  FOR" 

322: INPUT  "IN-PLAN 
E  STIFFNESS  - 
v/N?" ; GS : X$- " 1 
N  PLANE  STIFF. 

"  .  N  -l 

328:  GOSUB  670. 

GOSUB  680 
379: POR  1-1  TO  G 
330. COSUB  700 
335. \( 10>^X( 10)+?* 
E  *  2  ( 1  ) 

340:  J( 1 } -  2 *2 ( I T *E 
350: GOSUB  1100 
360: NEXT  I 
365. GOSUB  800: 

GOSUB  1700 
370;  ! !  C*  ."/"GOSUB 
670: GOSUB  385 
375. GOTO  590 
385;  7  --65.  U- 19:  TT--0 
. j$  " HN/m" ■ XX+ 

1 . GOSUB  630 
.390:  7-  97.  uJ-  20.  T T ■  - 6 
US-" (kN/m)- 1 " 
XX--iG3.  GOSUB 
630 

392. GOSUB  PP: 
RETURN 

497: klk-l . JS- 'GPa" 
500: FUR  I  I  TO  9 
505:  XX- i  1-  3.  IF  1  >3 
THEN  LrT  XX-  1, 
US  -  ' 

510;  GGSUR  LL: 
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LPRINT  USING  " 
&&8.&8U'  : 8$ ( 1 +8 ) 
t-CHRS  ?. ;  US]  NG 
"####.  **♦***•■;  c»C  I 
) XXX; USING  * && 
S";U* 

515: NEXT  ]  :  GOSUB  P 
p : RETURN 

590:  INPUT  "PNbJNfc'E 
RING  CST-  Y/N 
?  "  ;  G$ 

592: 7=111: IF  G$-' v 
'GOSUB  492 
600: INPUT  "NORMAL  1 
ZED  CST  -  Y/N 
?  •' ;  G$.  X$="NOR 
MAL1ZED  MATRIX 
•'  :N=2 

60b: IF  G$-"Y"GOSUB 
620: COSUB  625 
610: GOTO  1300 
620: KK-2: GOSUB  190 
:  LPRINT  X$.  1  1  -■ 
l: GOSUB  LL: 
RETURN 

625: GOSUB  L L : Z  -65 : 
lU-  1  9:  u$  -  "OPa"  ■ 
TT  -12: XX- 1 E-3: 
GOSUB  630 
627: GOSUB  LL  ;  7.-97: 
U--20:  U*  ''  TPa-  1 
:  t  j  ]8.  XX-1E6 
: GOSUB  630: 
GOSUB  PP. 
RETURN 

630: GOSUB  190; 

LPRINT  GHR$  :’*- 
t* (,n)  +  '  <  ;  j  > 

•'  0$^W>: 

GOSUB  AA; GOSUB 
LL 

634 :  f_OR  1  --  J  TO  3. 

pOR  J :  1  7  0  3 
636:  LPRINT  UCC  .1,1 
•>  >  T  T )  XXX:  NEXT 
l:  GOSUB  i_L: 
NEXT  I: RETURN 
620: <  OR  J  -  I 0TO  16. 
XC  J  T-.-0;  NEXT  J  ; 
RETURN 

6  30;  E'OR  I-  1  T0  6:  UC 

I )  0: NEXT  1. 

RETURN 

’00:  XC5)- <  COS  YU) 
T-M,  X ( 6 ) •  TOG 
v(  1  •»  >"-3X9  IN  Y  C 
1  > 


710: X (7) - (  COS  YC1) 
XS1N  Y(I  )W,  X 
(  8  >  -  COS  YU)*( 
SIN  Y C I ) >*3 
720 :X(9)-<S1N  Y( 1 ) 

)^4 

740: XC 1 1 )=XC 1 )XX(5 
)+XC2)XX(9)-*-2X 
X<7)X(X<3)+2XX 
C  4 )  ) 

750:XU2>--Xa)XX<9 
)+X(2)XX(5)+2X 
X(7)XCXC3)+2XX 
C  4 ) ) 

760 :  X  ( 1  3  )  =X  ( 7 )  X  C  X  C 
1 >  +  XC2)  -4XXC4) 
)+X(3)XCX(5)+X 
C9>> 

770: XC14)=XC7)XCXC 
l >+XC2)-2XX(3) 
)+X(4)X(X(5)-2 
*XC7)+X(9) > 

780: XC  15)-X( 1 )XXC6 
)-XC2)XXC8)+(X 
C8)-XC6) >XCXC3 
>+2XX(4) ) 

790: X< 16)-X( 1 )XXC8 
>-XC2)XXC6)-KX 
c 6)-X(8T  )XCXC3 
WXXC4)) 

795: RETURN 
800: OT-UC 1 )XUC2) YU 
C4)+2XUC3)XU<6 

'xuc5>-  uc2)xuc 

5  W-UC4)XUC3) 
"'2-U  C  1  )XUC6W 
820:  J  C  7  > - C  UC  2 ) XU  C  4 
>-UC6W)/DT 
825;  JC8)=CUC  1  )XUC4 
i-UCSWVDT 
830: U(9)=(UC5)XUC6 
>-UC3)XUC4',)"D 

T 

840:  UC 10)-CUC 1 '‘XUC 

2)  UC3  W)/DT 
850:  UC1 1 >-CUC3)XUC 
6)-UC2)XU(5))/ 
OT 

860:  U( 12)-CUC3)XU< 
5) -UC 1 >XUC6) )/ 
OT: RETURN 
1000:  UC  1  )-  l  "P/Q,  U 
<  2)--l/P-l/Q 
1 0  J  O :  U ( 3 )  I  "R/S,  U 
C  4  )  -  1  /R-  1  '5, 
t J( 5 )  1/T/T 


1 020: U<3 )- 1 /R/S, U 
C4 )=1 /R- 1 /S, 
U(5)=l/T/T 
1025:0=-. 5; U(6) -0 
XT  (UC  1  ^  XUC  3) 

> 

1040: U<7)=U( 1 >XXC 
1 >^2+2XU(6)X 
X(] >XXC31+UC 
3>XXC3W 
1050: UC8)=UC 1 )XXC 
3W+2XU(6)X 
X(3)XX(2  >+U< 

3) XXC2)'-'2 
1060: U(9)=U( 1 >XXC 

1 )XXC3)+UC6> 
XCXC 1  )XXC2)-*- 
X  C3 )A2  )+U  (3) 
XXC3)XXC2) 

1 070: U( 1 0)=U C 5) XX 
( 4  >  *2,  U  (1  3 )  = 
U(2)XXC 1 )+U< 

4 )  XX  C  3  ) ,  U C J  2 
>=UC2)XX C 3 7  *■ 
UC4)XXC2>. 
RETURN 

1100:0(1  )~U(1  ^UC 
I )XXC1 1 ), UC2 
)=U<2)+U< I )X 
X(  12),  UC3)-U 
C3)=UC  1  •>  XX  C  1 
3) 

! 1 1 0: UC4  >=UC4)4UC 
1  )XX(14). UC5 
>=U(5)+U1'  1  )X 
X(  1  5),  U ( 6 ) -  U 

< 6)+uc  n  xx«. : 

6) . RETURN 
! 200 :  A ( 1  .T-l  /X<  10) 
"UC7), AC7>  ; 
"XC 10)/UC8>, 
A  C  3  )  =  !  "  X  C 1  0  ) 
"UC 10) 

1 21  0:  A( 4  )-•  U< 9 )  "U 
C  7 ) ,  A  C  5  )  -  -  0  C 
9 )  /  U  C  8  > ,  A  C  6  > 
-UC  3  1  ) / U C 7 ) 
1220:  AC 7)  -:U C 11  >/0 
f 10), AC8)-UC 
12)/UC8\  AC  9 
>=UC 12)/UC 10 

1 230: EOR  J  -3 T0  6 
1235.  UCJ  *■  12)-  UC  J  ■> 
"XC 10) 

1240:  UCJ  H8)  -UCJ  • 
6 )  XX  C 1 0 ) . 
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NtiXT  1; 

RETURN 

1  -100.  INPUT  '  !N-  PL 
ANL  ;.T  RUNG  T  H 
v  /H7  ,  0* 

'  -ip:).  :  >  I.$  1  N' 

corn  .^00 

Li  ltd'.  '  /8.  U$-’ ON/ 

T 

■T.V.  U^'JB  1390: 

1:010  1420 
1  450:  ijiTSUB  LL.-OR 
!  :  i  Tti  ]a 

tup;.,;  print  <:hR$ 

t-n ;  p$  ( <  i  - 

7),  2,  !'+• 

(  V  '  v  . 
INPUT  $<  : > 
4rV;  L  PRINT  ..IS!  NO 
;  (HR$ 
/t-NlD*  (i<J$u  1 
?>, 

'iJS!*  '•»»## 

4&8.S.&K.&8."  :  a 

cm;  it  •  gosub 

LL:NLXT  J; 

\t_7  URN 

>4 ;>0;  yc  1  7)-  U(7  '■  *K 
'U(9UL  p U C  1  • 

■  *n 

1  4  ,<  /  .  v,]P  U(  j  v*K 

» i.  a  >  *l  +u  ( :  ? 

>  *n 

•  4 p .  y..  1  3)-H(  :  I  ">* 

..  +  •.1  ( i  >  \  *L-* 

’  0>-*n 

'  400.  R  k  -  ■  1  .  0.j-  ‘‘Ox 
;  HO  0 

!  030.  f  '.Cr'L’Jti  '.  550. 
C.GSUH  ’.000- 
nos IJH  :  H00. 
GOSUB  1650: 
GOSUB  PP : 
NEXT  : 

•s.-jp.'.nTO  ?u00 
:  'Sip  m  ci  > -•  '• :  J  > 

>  sss.  vc  73  >  c  cos  v 

'  1  ))'••?>  X(/4 ; 
(SIN  Y  c  ]  V  ^ 
x  (?•/>  :>  -  JO1. 

■-  •:  ]>*.'■•  :n  y  ( ] 

1000.  X(20)  X  (  1  ’  '  * 
X  ( 2  3  >  *  X  ( 1 0  1  * 
X(24 ) *V( ;n>* 
X'25> 


1570: X(21 >=X( 17>* 
X(24 )+X( 18>t 
X(23)-X(19)* 
X(25> 

1580: X(22)-2*X(25 
mX(18)-XCl 
7>)  +  XU9mX 
< 23)-X(24) ) 
1585:  YU  )=-V(l ): 
RETURN 

1600: U(13)=U(7)¥X 
(20W+2YUO 
->*X(20)¥X(2i 
)+U(8)*X(21 ) 
^2+U(  10)  ¥X(2 
2W 

1605: U( 14 )-U( 1 1 )* 
X(20)+U( 12)t 
X(2 1  ) 

1610:U(15)-U( 14)/ 
U(13)/2 

1615:  UU6)=-U(  15) 
-HCU( 15  W+) 
'U( i 3) > 

1620: U< 1 7 )=U( 15)+ 

T (U( 15)^2+ 1/ 
UU3) ) 

1625: B(1 )-lNT  (X( 
10)/E/U( 16)/ 
2+ 1 >*2> B(2)= 
1NT  <X(10)/E 
/U( 17)/2+l )* 

2 

1630: B  <  3 ) -U ( 1 6 ) / X 
(10), B(4)=U( 

1 7)/X( 10) : 
RETURN 

1650: USING  '&&&&& 
&&&&####'' 
1652: 60SUB  LL: 

LPRINT  “ANGL 
E  ”+STR$  U> 
t- "  =";Y(1) 
1653: US  1 NG  "&&&&& 

a#####.####” 

1655: GOSUB  LL: 
LPRINT  ”R+ 
.-";U(16) 

1657: IF  U*-"nN" 
THEN  1665 
1660: GOSUB  LL: 
LPRINT  "N+ 

=" ;  BU ) 

1665: GOSUB  LL: 

LPRINT  "S9m+ 
; B(3) ;  TiPa 

1670: GOSUB  LL: 
LPRINT  ”R- 

-";U< 17) 


1672: IF  U*-"NN" 
THEN  1680 
1675: GOSUB  LL: 
LPRINT  "N- 
=:,,;B<2) 

1680 :GOSUB  LL: 

LPRINT  "Sgm- 
- " ; B ( 4  > ; "MPa 
RETURN 

1700: IF  N- 1  THEN 

LET  K-60/XX/ 

Ul :  GOTO  1704 
1702:K=60/UJ  *100 
1 704 : PAUSE  USING 

&&8.&&8.&8.8.8.8.R 
"SCALE  UNI 
T  1 S1'  J  Kj  U* 
1706: INPUT  "NEW  S 
CALE  ?Y/N" 5  G 
t 

1708:  IF  Gi^’-N" 

GOTO  1710 
1709:  INPUT  "W  -•  ? 

" ; W : GOTO  17 
00 

1710: GLCURSOR  (-7 
0,  -140) : 

SORGN 

1715: LINE  (0, -  1 20 

>-(0,  120),  0, 

1 

1720:  LINE  (-100,0 
) -  ( 50,  0),  0,  I 
1725: INPUT  "ANGLE 
NO.  IS—" J  1 
1730: IF  1 >GTHEN  2 
570 

17 35 :ARE AO  Yd) 
1740: AREAD  Z( I ) 
1750. INPUT  "COLOR 
NO.  IS=" 5 2 
1760: X(26)-X(  1 ), X 
( 27)-X(2), XC 
28)-X(3),  X(2 
9)=X(4) 

1770: GOSUB  1000 
\ 780: XC 1 )-U(7), X( 

2 )  - U ( 8 ) ,  X(3) 
=U(9>, X(4  )=U 
(  10) 

1790: GOSUB  670: 

GOSUB  700 
1800:  XU  ) -XC26 ) ,  X 
< 2)=X(27),  X< 

3) =X(28), X(4 
mX(29) 
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1819: U( 19>=X( 1 1 >, 
U(20>  X( 17), 

U(  2  1  >--X*  13), 
0(22)  -X(  14) 

1820.  X(?3)- (COS  V 
C  1  )  W,  X(24) 
-(SIN  Y(  1  )  )'" 

2 

1830:U(23)-UC 1 1 )* 
X(73)+U( 12)* 
X(24),  UC24 )= 

U( 1 1 )*X(24 )+ 
U( 1 2 ) *X (23) 

1835: IF  N-2THEN  2 
300 

1  840:  B<  19)-LK  19)*' 
UC7)^7+U(21 ) 
*U ( 7 ) *U ( 9 ) +U 
(20)*U(9W+ 
U(22)*U(  1  1  >p 
7 

1  830 :  B (20 )  'UC19)* 
0(9)^2+U(21 ) 
*U ( 3 ) *U ( 8 ) +U 
(20)  *0(8)  ~2+ 
U(77)*0( 12)^ 

2 

1850:8(21 )~UC 19)* 
0(2 )*0(9)+U( 
21 ) *0(2) *0(8 
’>+0(70)  *0(9) 
*0(8) 

1 820: B(2 1 )~B(2 1  )  + 
0(22)*0( 1  1  )* 
0(12) 

1  880 :  P  (23 )  -U  ( 23 )  * 
J ( 7 ) +0 ( 24 ) *0 
( 9) 

1890:  R(24 ) --LK  23  )* 
0(3 ) +U( 24 ) *0 
(8) 

1300:  i.l ( 19) -B(  19), 

0  ( 2  0  )  -'  8  1  20), 
0(21  )  -'B 1  2  1  , 
0(23)  --B  (  23 ) , 
U(24)=B(24) 

2300:  0- -U ( 19)  -  LJ ( 2 0 
) 

7310:  IF  O=0ANL)  U( 
? 1 ) >0THEN  23 
30 

2313:  IF  0  :0AND  U( 
21 )  <  0T HEN  23 
95 

2320: 0(1 3) -( ATN  ( 
2*U(21 >/(U’I  1 
9) -0(20) ) ) )/ 


2330: 

2335: 

2340 


2350 


2360: 

2320: 

2380: 

2390 

2400 

2410 


2420 

2430 

2480 


2490 

2500 


2510 


2: GOTO  2340 
d( 13) -45: 

GOTO  2340 
0( 13)= -45 
U( 14)=U( 19)* 
(COS  LK13))'' 
2+2*U(21 )* 

COS  0(13)* 

SIN  U(13)+U( 
20)*(S1N  U(1 
3  )W 

:  U( 15)=U( 19)* 

( S3 N  LK  1 3 )  )'N 
2-2*0(21 >* 

SIN  U ( 13)* 

COS  U(  1 3)  +(J ( 
20)*(COS  U( 1 
3)  W 

:  U( 1 6)=U( 23 ) * 
COS  U(13)+U( 
24 ) *S1 N  U ( 1 3 
5 

:U(1?)=-U(23) 
*S I N  U( 13)+U 
( 24 ) *COS  0(1 
3) 

U( 1 8 ) —  1 +U( 16 
W/U( 1 4  )/4  + 
0(17)^2/0(15 
)/4 

X=JAB5  (0(18 
VUC  14)  ),  V-9 
ABS  (U( 1 8)/U 
(  15)) 

: U=-U( 1 6 ) /O ( 1 
<i)/2,  0-=-U ( 1  9 

VU(  1  5)/2 
: m=u*COS  0(13 
)-U*SlN  0(13 
),  ri=U*S3N  LK 
1 3 )+0*C0S  0 ( 
13) 

:  0=H,  o=ri 
:  X--XXU,  V=Y*U, 

u=u*w,  o  -u*u 

:A(0)=X*COS  0 
(  13)  +U,  B  ( 0  )  = 
X*S 1 N  U( 13)+ 
0 

FOR  J=1T0  31 
A(J’>=X*CDS  ( 
1 2* J ) , B ( J  )  Y 
*SIN  (12*.J) 
f1=A  ( J  )  *COS  U 
( 13)-B(J)* 
SIN  IK  1  3),  H- 
A( J )*S1N  0(1 
3)+B(  J  ■> *COS 


0(13) 

2520: A(J)=H+0,  B(J 
)  -H+0 

2540: LINE  (B(J-l) 

,  -  A  ( .1  -  1  ) )  -  (B 
(J),  -A(  J)  ),  0 
. 2: NEXT  J: 

GOTO  1725 
2570: LINE  (-4, -60 
) -  ( 4,  -60),  0, 

1 

2572 :  L  1 NE  (-4,60) 

-  ( 4,  60),  0,  1 
2573: LINE  (60,-4) 
-(60,  4),  0,  1 
2574  .-LINE  (-60,  -4 
)  -  ( -60,  4),  0, 

1 

2585: GLCORSOR  (-6 
0, 90): SORGN 
2590: LPR J  NT  k;0*: 
RETURN 

2600: XX=X( 10) : N= 1 
.  u$='T!Pa" : 
INPUT  "FAIL. 
ENO.IN  SIRES 
S-Y/N?" : G$ : 

IP  G$="N" 

THEN  2640 
2610: COSUB  190: 

GOSUB  L L  :  0  ; 

6 

2615. LPR 1  NT  1  S 
TRESS  SPACE' 
2620:  GOSUB  1  t>00; 

GL CURSOR  (13 
0, 230) : SORGN 
: KK-2- GOSUB 

PP 

2640.  N=2:  U$="  V  • 
INPUT  "FAIL. 
ENO. IN  STRA1 
N  - Y/N?" : G* : 
ir  g$  n" 

THEN  2700 
2650: GOSUB  190:0= 
2700 

2655 : LPR 1  NT  '  S 
TRAIN  SPACE' 
2660: GOSUB  1700. 

GLCURSOR  ( 1  - 
0,  230) : SORGN 
KK=2: GOSUB 

pp 

2700: GOSUB  190: 

INPUT  "FlEXU 
RAL  STIFFNES 


S  -Y/N?  ;G*-. 

X$  -LEX.  ST 
UP.  '  •  N-l 
7246:  GOSUB  670 
2750:  GOSUB  688 
?765;X(}0)~Z(0m 
7770 ;  FOR  1  '1  rG  6 
2  "780:  GOSUB  900 
7785: X(  ]  0  )  -  X  (  1  0 )  v 
h*Z\ 1 ) 

7790:  >K  I  i  2 ' 3  *  ( X  'l 
10)^3- CXC 10) 

z<  i  m:)^) 

7800: GOSUB  ! 1 00 
7870: NEXT  1 
7830:  GOSUB  800 
2840:  ! (  G$  -’'Y'' 
GOSUB  620: 
GOSUB  2880 
7860: GOTO  7340 
2880:  7  --G8.W  '13:  r r 
•0;  U$- '  N .  '' . 
XX- 1E6: GOSUB 
630 

7830:  7  1 00:  id-  20:  r 
t  6:  J$="  =1<N. 
t,)-:  .xx  it 
3. GOSUB  630 
2900: KK-? . GOSUB  p 

p 

794  0: X(  1 0> -2XX  C 10 
1^3/3 

2960: GOSUB  1200 
2960: 71 02- !NPUT 
"ENG1N.  r oPX. 
CS  !  Y/N?",G 

$ 

2320:1! 

GOTO  9000 
2976 : GOSUB  497 
9000: INPUT  'NORN. 
FLtX.C.ST  Y/ 
N?" ; G$ • N  2 : X 
V  • " NORNPu I Zt 
D  FLEX. 

9010: IF  G$ - "N" 
GOTO  3120 
9020: GOSUB  620 
3022:7-68:0=19:0^ 
~  ’GPa’  T  '  -  ■ !  2 
: XX  J  i  -3. 
GOSUB  630 
3023:  7  -  !  00:  0-  20:0 
♦  ="  rPa~  1  ''  •  TT 
-■■18:  XX  -  It6: 
GOSUB  630 


3030:  KK-=2:  GOSUB  P 
P 

3120: KK~  1.03: 

INPUT  "  FLE 
XURAL  STREHG 
TH  -Y/N? 

G$ 

3130: IF  G$="N" 

GOTO  3330 
3170:2=77; 0$  "HN" 
•■GOSUB  1330 
3200 :XC12)=U(2)XK 
►U(9)*L+U( 1 1 

)*n 

32 1 0 :  X  ( 1 8  )  -~LK  9  )  *K 
+U(8)*L+U(12 

)*n 

3220: X( 19)=U( 1 1 )* 
k>U(  12)*L*-U< 

10)*n 

3230: A(0)=Z<0)*E 
3232:  fl-=X(  10) 

3235: X( 107-1 /6* 
EXP  C2/3XLN 
<X( 10>*12)) 
3240: p0R  I  I  TO  G 
3250:AC1  )=AC1  -1  )•* 
7(1 )*E 

3275: GOSUB  1555 
3277:  vcl  )--  YU) 
3280: GOSUB  1000 
3285: X(20)-X(20)* 
QC  J  ),  X C 2 1  )  =  X 
(71 )*A<  J ), X( 
22)=X(22)*FK 
1  ) 

3300: GOSUB  1600. 
GOSUB  1650: 
GOSUB  PP: 
NEXT  1 

3330: GOTO  322 
4000: GLCURSOR  (0, 
-230*KK); 
SORGN  : L  3  N£ 
(0,  10)-<l-200 
.  !  0) ,  0: 
GLCURSOR  (0, 
0) 

4010: ! I -0: RETURN 
5000: GLCURSOR  C -2 
0*.!  1, 0) :  !I  =  I 
l+l : RETURN 
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3.  SYM  -  LAM  3 


1 :  "SYH-LAri3" 

3: DIN  X<30),  Y<20 
),  2(20),  U<25), 
UC24),  A$<7),  AC 
1.0),  B < 3 .1 ) 

4.  DATA  "!.!  .  22" 
.  12", "66", ' 16 
",  26" 

5- RESTORE  4:P0R 
I  - 1 T 0  6. READ  9 
♦  (  1  ) : NEXT  1 
6: OATA  "E1-", "E 2 
'E6- ",  "o2 1- 
",  v  1 2- ",  "v61- 
",  vl6-“.  v62- 
",  <j26-  " 

7; RESTORE  6:  POR 
I -9T0  17. READ 
@$ ( I ) : NEXT  1 
8 ■ INPUT  "NATER1 A 
L  N . - ( N  FOR  NE 
NU) " ; G$: IF  G$- 
"N1 GOTO  195 
9: I -UAL  G*X10: 
GOSIJB  I. 
RESTORE  1 : READ 
W$,  A,  B,  C,  D,  E,  P 
,  Q,  R,  S,  t;primt 
W$ : GO  TO  200 

10: DATA  " T 300/520 
8",  181E3,  10.  3E 
3,  .28,  7.  1 7E3,  . 
125E-3, 1500, 15 
00,  40,  246,  68: 
RETURN 

20: DATA  "B(4)/550 
5",  204E3,  18.5E 
3,  .  23,  5.59E3,  . 

1  25E-3,  1260,  25 
00,  61,  202,  67. 
RETURN 

30: DATA  "AS/3501" 

.  138E3,  8.  96E3, 

.  30,  7.  10E3,  .  12 
5E-3,  1447,  1447 
,51.7,  206,  93: 
RETURN 

40: DATA  "SLOTCHPL 
Y/ 1002", 38.6E3 
, 8. 273,  .26, 4.  1 
4E3,  .  125E-3,  10 
62,  610,  31,  118, 
32: RETURN 


50: DATA  "KEULAR  4 
9/EPOXY",  76E3, 
5.  5E3,  .  34,  2. 30 
E3,  .  125E-3,  140 
0,  235,  12,  53,  34 
: RETURN 
60: DATA  " " 

30; DATA  "" 

80: DATA  " " 

90: DATA  "" 

1 00: DATA  "" 

1 90 : US  1 NG  '  &&&&&«# 
####.  fc##"  : 
RETURN 
191:  US  1  NG 

: RETURN 

1 95 : pOR  1-1  TO  10: 
GOSUB  1X10: 
RESTORE  1X10: 
READ  W$ 

1 97 : pAUSE  USING  "« 

" ;  W$ ; NEXT  I: 
GOTO  8 

200: A$( 1 )- "MODULUS 
" : A$C2)-"CONPL 
I ANCE " : AA=1 90: 
BB-191 

210: PAUSE  "DEFINE 
THE  LAN1NATE" 
220: R=3 /( 1-CXCXB/A 

230:  X(  l  )--FXA,  X(2)- 
FXB,  XC3)-FXCXB 
,  X(4)-D 

260: INPUT  "HOW  NAN 
Y  ANGLES^" ; G 
270: FOR  1-1  TO  G 
280: INPUT  "ANGLE- " 
;  v(j> 

290:  H$-" ANGLE  "  + 
STR$  CJ)+"  =" 
300 ; PR  I  NT 

310: INPUT  "NO. OF  P 
L 1 ES-  ' ; 7C 1  ) 
315: PRINT  "  NO. OF 
PLIES  - 
316: NEXT  1 
317: INPUT  "N. OF  CO 
RE  PL  I ES- (FLEX 
) " ; ?<0) 


.3 18: PRINT  USING  "8, 

«♦»#";  "N.  OF  COR 
E  PLIES";?(0) 
320: PAUSE  "ANSWER 
Y/N  FOR  LI  ST  IN 
G" 

323. INPUT  "IN-PLAN 
E  STIFFNESS  - 
Y/N?" ; G$ 

327: GOSUB  670: 

GOSUB  680 
329: POR  J=1T0  G 
330: GOSUB  700 
335: X< 10)-X(10)+2X 
EX2U  > 

340:  U  C I ) =2X2 C I )XE 
350: GOSUB  1100 
360: NEXT  1 
365. 2-65: TT^0: XX- 1 
.  l)$=  '' NN/m "  .  IP 
G$=" Y" GOSUB  38 
0 

33b; GOTO  540 
380: GOSUB  BB: PRINT 
A$(TT/6+3 ) 

400; GOSUB  AA : POR  1 
i  TO  6 

405: PRINT  CHR$  2+0 
$C1);U(I+TT)XX 
X;U$ 

4  J  0 : NEXT  I. RETURN 
430: U$-"GPa" 

500; POR  1-1  TO  3 
505.  XX- IE- 3:  IF  H3 
THEN  LET  XX- 1 , 
U$~"  " 

510: GOSUB  190: 

PRINT  9$Cl+8)+ 
CHR$  2; A( J )XXX 
:  U* 

535. NEXT  1 
518: RETURN 
540: GOSUB  800 
560.  X$~"  •  2-97 •  TT--- 
6:  XX=1  E'3:  U$-"m 
/kN": IF  G$- " Y" 
GOSUB  380 
580: GOSUB  1200 
585: 2=1  I  1 

^90.  INPUT  '  ENG J NEE 
RING  CST  Y'N 
?  ”;G$ 
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592-  IP  C$~"v"GOSUB 
*90 

600:  N-  2:  INPUT  "NOR 
MALI  /tD  1ST 
V/NV  1 ;G$ 

605:7  -65:  ul  -1  :  T  T  -  1  2 
:  XX- 1  E.-3-  U$-‘G 
Pa": IF  G$~" Y" 
GOSUB  630 

6l.c.?----92- 14-2:  T  T  •  1  8 
.  XX  -  1  F-6:  U$~"  TP 
a- I" . IF  G$-"Y" 
GOSUB  630 
620: GOTO  ] 300 
630. GOSUB  131 : 

PRINT  A$(U|) 
640: rOR  i  - 1 T 0  6 
645:  GO-SUB  AA:  PRINT 
CHR-t  7  +  0$  U)V 
*" ; U( I +  T nxxx; 
0$ 

650: NEXT  I. RETURN 
620:  POR  J-10TO  1 6 
672:  XCJ  '~0:  NEXT  J 
675: RETURN 
680:  r0R  I--]  TO  6 
684:  UC  I  )■-  0 
688- NEXT  i 
690. RE T URN 
700;  X(  5.1  -(COS  YU) 
)M,  X  ( 6 )  (COS 
Y(  1  >)<^3*S]N  Y ( 
I  ) 

7  ’  0:  X  (  7  V-  (  COS  YU  T 
XS  ]  N  v  (  M  )  *2,  X 

(8)  -COS  YU)X< 
SIN  Y(I"ftT 

;20 :  X (9)  -  <  S I  N  YU  t 

i  ^4 

740.  X(  I  I  )-X( .!  )XX(5 
)+X(2)  XXC9)+2X 
XC 7 i^CXCS >+2*X 
(  4 .  ) 

7S0.  x< ;  ;'.i-'X< !  > xx >.s 
V ( 2 ) XX(5)+7X 
X  (  7  >  X  (  X  ( 3  i  *■  2  X  X 
t  4)  ) 

7G0.X(13)-X(/)X(X( 
1 )  •+  X  (  2  )  4 XX (47 
)  ■+  X  ( 3  )X  ( X  ( 5 )  •  X 

(9)  ) 

770 : X ( I  4 ) -X ( 7 ) X ( X ( 
1  )-X(2) -2XXC3'' 
)+\(4)X(X(5)  2 
*X(7>+X(9) ) 


780: X( 1 5)-X(l )XX<6 
)-X(2)XX(8)+(X 
(8)-X(6))X(X(3 
1+2XXC4) ) 

790:  X(16)-XU  )XX(8 
)-X(2)XX(6)+(X 
<6)-X(8) >X(X(3 
1+2XXC4)) 

735: RETURN 
B00: DT=U( I ) XU ( 2 ) XU 
( 4 )+2XU (3 ) XU (6 
)XU(5)-U (2)XU( 

5 )  A2-U ( 4 ) XU ( 3 ) 
■/'2-U<  1  )  XU  (  6)^2 

820: U(7)-(U(2)XU(4 
)-U(6)a2)^DT 
B25: U(8)=(U( 1 )XU(4 
)-U(5  W)/DT 
830: U(3)-(U(5)XU(6 
)-U(3)XU(4) )/D 
T 

840:  UC  10)-(UU  )XU( 
2>-U(3)''2)  'DT 
850: U(1 ] )-(U(3)XU( 

6)  -U (2) XU (5))/ 
DT 

860 :  U  U  2  )  -  ( U  C  3 )  XU  ( 
5 ) -U( 1 ) XU ( 6 ) )/ 
OT 

980: RETURN 
1  000: U( 1 i-l/P/Q,  U 
(2)~1/P  -1 'Q 
1010; U ( 3 ) - 1 /R/S, U 
<  4  )  '  1  /  R-  1  ^S, 
U  (  5  )  - 1  U  /  T 
1020:0(3)-  l/R/S,  U 
<'47-1  'R-US, 
U  ( 5 )  1  '  T  /  T 
1025:0----  1  /2 
3  030:  U(6)™0X4(U( 1 
>XU(3) ) 

1040:  0(7) -IK  1  )  XX( 

1 )^2+2XU(6)X 
X<  3 ) XX ( 3 ) +U( 
3 ) XX ( 3 ) ^2 
3  050.  U(8)--U(  3  )XX( 
3W  +  7XU(6)X 
X(3)XX(2)+U< 
3)XX(2)A2 
1060:  0(9)  =11(1  >XX( 
1 )XX(3)+U(6) 
X(X( 1 )XX(7)+ 
X<3  W)+U(3) 
XX ( 3 ) XX ( 2 ) 

3  070 :  U  (1 0 )  -U  ( 5  )  XX 
(4  W, J( 1 1 )- 


U(2 ) XX( 3 )+U( 
4 ) XX ( 3 ) ,  Uf 17 
i-=U(2)XX(3)  + 
U(4)XX(2) 
1080: RE  I  URN 

I  300:  U(  1  )-  UU  )+U( 

1  )XX(1 1 ),  U(? 
)-U(2)+U( 1  )X 
X(  12),  U ( 3 ) -U 
<3)+U(l )XX( 1 
3) 

I I  1  0 : U ( 4 ) -U ( 4 ) +U ( 

! )XX( 3  4 ),  U(5 
>-U (5)+U(I)X 
X (1 5 ) ,  U ( 6 ) -U 
(6)+U( 1 )XX( 1 
6) 

1 130:  RETURN 
1 200: A( 3  > -  1 / X ( 3  0) 
'0(7),  A(2)  -‘I 
'X(10)/U(8), 
A(3'-|/X(10) 
'U( 10) 

1210: A ( 4 ) --U (9 ) /U 
<?'>,  A  (  5  )  --U  ( 
9  )  /  U  (  8  ) , A (6) 

=  U(  3  1  )  / U  ( 7  1 
1220: A( 7'  -U( 3  1 )/U 
U0),  A  1 8 )  - U ( 
!7)/U(8),  A ( 3 
)=UU2)/U(JR 
) 

1230: r OK  3-1  to  d 
1235:0(3  M2)=U(Ji 
'X( I  0) 

1  2  3  7 :  U  ( J  *■  1  8 )  -  U  (  J  ■* 
6)XX( 10) 

1240: NEXT  J 
’270: RETURN 
'300.  INPUT  "  1  N  -C>L 
ANL  STRENGTH 
-  Y/N? " , G$ 
1330.  IP  0$  -  N" 
G0T0  2700 
1340:  7-  78.  U$--’  IN/- 
m"; GOSUB  139 
0 

1 350 : GO T  0  1420 
1390.PQR  1-1 3  TO  3 
3 

1 395: X$-CHR$  2+ 

UJD$  (@$(1-2 
T,2,  1)4- 
PRINT  USING 

R" ; X$+"  ( '  +U$ 
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t 


»'•  V  .  INPUT  a 

(  l  'I 

1400: GOSUB  AP- 

pRlsr  x$,«<i 

) ;  u$ 

1 4 1 0: Nfc  XT 

RfcKURN 

’420: XC  1  7 ) -  U ( 7 ) XK 

■*-'JO>*L+<vK  1  1 

>xn 

1 430: X(  1  B)  U(9)*K 
+UC  8 ) XL  *U<  12 

^*n 

’  4  4  0 .  v  C  ]  9  )  U  U  P  X 
k+UC  1  2  )  X  L  +  U  < 
!0)  xn 

! 490: ‘ OR  1  ’TOG 
’.  4  60.  H$  '  ANGl  1  "  » 

STR$  ■■.}>. 

'480:  jOING  '  &*&&&. 

’490.  ’  r'  G$  ’  Y" 

n R 1 N T  M$;y(l 

■) 

'  b00:  GOSUB  i  950 
’  90  !  .  GOsL'B  '  000 
1 502 : GOSUB  1000 
1910:  GOSUB  lh:i0 
*920:  Nr. XT  i 
'930:  ■ . 0  T  0  ’0,’ 

!  v  (]  >■■■  •>(!.’’ 

’  595  •  X  C  23  i  '  (  L  OS  ’r 
C  I  P  V-  X',24  ) 

-  C51N  '9  1  t 
?,  X  (  29 )  -  LOG 
v  c 1 1  *  s  i  n  v i 
> 

1  960  :  X  C  20  )  'XC  1  ?  >X 
XC23T+XC  18.JX 
XT  2  4  )  <•  X  (  i  9  )  X 
X  <  29  > 

1920:  X  C  2  1  >  -X  C  1  ’)X 
X<24)+XC 1 8 ) X 
XC23)  XT  1 9 ) X 
X  C  2b  t 

'980. X<22)  2 XX (29 
‘X(X( ! 8)  XC 1 

9  > )  +  x  c ;  3 )  x  ( x 
<?3)-  X  <  2  4  )  > 
1589- VC:  v.  -YC  ]  ^ 

< 930. RL TURN 
>600.01 1 8 > ■  IK,”  XX 
'20 ) ^2 ’ 2  XU C 9 
t  XX  C  20 ) XX  C  2 1 
t  *  i.i  <;  H  1  XX  C  2  1  ) 
!/)xX  2 

2  W 


!  605 :UC14)=UC11)X 
XC20)+UC 12)X 
XC21  > 

1610:UC15)=UC14)/ 

UC13W 

1615:UC16)=-UC15) 
UCUC15W+1 
/UC 1 3) ) 

1 620:  UC17)=UC15)+ 

-f  (UC  i  5)^2-+ 1 4 
U(13)) 

1625: B( 1 )  =  1NT  CXC 
10)/E/UC 16)/ 
2+1 )X2, B(2)  = 
INT  CXC 10)/E 
/U(17)/2+l)X 
2 

1630: 8(3)=U(16)/X 
C  10  2,  B  C  4  )  -U  C 
17)/XC 10) 
1635: RETURN 
1650:  IF  Gi  =  "N'’ 

THEN  1685 
1653:  USING  ‘'&&8.8.S. 
#####.####" 
1655: PRINT  ”R+  - 

" 5  U ( 1 6) 

1652:  IF  U*  =  "riN'' 
THEN  1665 
1660: PRINT  "N+  = 

;  B  c  l ) 

.1 665:  PRINT  ‘'S9m+- 
' ; BC3) ;  ”npa" 
1670: PRINT  "R-  = 

"  ;uc 17) 

1672:  IF  U$- "TIN" 
THEN  1680 
1675-.PR1NT  "N-  = 

;  B  C  2 ) 

1 680: pR INT  "S9m-= 

' ;  B  C  4  )  i  "  flPa  " 
1685: RETURN 
2550: NEXT  J 
2680: INPUT  "U-  ?" 

; U: GOTO  2655 
2700: GOSUB  BB 
2710: INPUT  "FLEX. 

STIFFNESS  - 

Y/N?'  ;  G* 

2720: X$-"FLEX.  ST 
1FFNESS" 
2740. GOSUB  670: 

GOSUB  680 
2765: XC 10)=Z(0)XE 
2770: "OR  1  =  1  TO  G 
2780: GOSUB  700 
2785: X( I0)=XC  J0)  + 
F’XZC  1  > 


2790: UC1 )=2/3XCXC 
10)^3- CXC 10) 
-ZCl >XE)^3) 
2800: GOSUB  1100 
2820: NEXT  I 
2850: Z=68: TT=0:XX 
=  lE6:U$="N.<n 
IF  G*=" Y" 
GOSUB  380 
2310: GOSUB  800 
2930: Z= 1 00: T  T=6: X 
X=lE-3: Ui=" " 

:  IF  G*=''Y'' 
GOSUB  380 
2334:  USING 

2935: PRINT  " 

: n  CkN.  ti)~ 

1  " 

2940: X(10)=2XXC10 
)^3/3 

2950: GOSUB  1200 
2360: 2-102 
2 965:  INPUT  "ENGJ  N 
FLEX.CST  - 
Y/'N?"  !  G* 

2970: IF  G$="Y" 
GOSUB  490 
3000: INPUT  "NORn. 
p LEX . C S r  ~  Y 
•'N'?"  •,  G* 

3005. XX="N0RnOLlZ 
ED  CONST" 
3010:  7=68 •'  W=  1  :  TT  - 
12: XX=  J  E- 3 : U 
GPa" .  IF  G 
*="Y"G0SU8  6 
30 

3050. Z - 1 00: H  -  2 •  TT 
=18: XX=1E6: U 
t  =  " TPa- 1'  :  IF 
Gi-"Y'' GOSUB 
630 

3160: INPUT  "  FLE 
XURAL  STRENG 
TH  -  Y/N?  ' ; 

G* 

3170: IF  G*="N" 
GOTO  3330 
31 80: Z- 77: UX="HN" 
: GOSUB  1390 
3200:  X C  1  7  >  =U  C  7  ) XK 
+  UC9)XL+UC  J 1 

>xn 

3210:  X  ( J  8  )  =U  ( 9  )  XK 
+UC  8 ) XL  +  UC 1 2 
ixn 
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9370: 

09  INI, 

«.  S.&& s. 

9220: 

xc  j  9>-uc  in* 

(J  . 

K+UC 12)*L+LK 

i'Ri  n  r 

h$; v< : 

\  0>*n 

■> 

9790: 

a < 0 ) 

■  .ilMltf 

1  ’ 

9292: 

w  x  1. 10; 

927 

1 

•or 

923b: 

x(i«)  Vbk 

9280. 

f  UJSUH 

i  000 

F'XP  (2x3*LN 

929''. 

.  ■:>.?«) 

-X  c  70  >  * 

f  X<  I0)*i2)  > 

AC  I  ), 

X  C  ?  1  X 

9  240. 

.  -  OR  1  -  T  0  O', 

(  ?  I  )  *A  (  I  h  X  ( 

9250: 

:  AC  J  > -  A <  i  -n  + 

77)  X 

C  22  ^  *  A ' 

?( 1 >*L 

i  -> 

9260: 

;  H$-  1  AN(,LL 

9/A0. 

.  i.JSUH 

'  600 

STR$  <j>+" 

9900. 

.  OH 

!  b_)0 

99  I  9 

.  Nt  XT 

1 

3268: 

:  I F  0$ - ' N ' 

9  970 

.  x «  ;  a  ' 

0 

GOT  09  92  7  5 

,  J.'i, 0  V’.-J 

-<  t  s,’ 


SECTION  IV 
CONCLUSIONS 


The  description  and  instruction  of  the  use  of  Sharp  PC-1500 
Pocket  Computer  for  the  key  calculations  of  the  stiffness  and  strength 
of  symmetric  laminated  composites  are  presented  in  this  paper.  With 
the  computer  packages  that  were  programmed,  instant  calculations  can 
be  made  for  practical  use. 
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